function ReadMat(file)
global Node Elem Crack  Mater Disp Force
load(file)